/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / I-L / LineShare 3.1.3 Demo.sit / LineShare 3.1.3 Demo / LineShare Scripts / MaxFax&ARA&Data

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 4d 61 78 46 61 78 | 26 41 52 41 26 44 61 74 |..MaxFax|&ARA&Dat|
|00000010| 61 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |a.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 73 4c 69 | 4e 00 00 00 00 00 00 00 |.TEXTsLi|N.......|
|00000050| 00 00 00 00 00 18 9a 00 | 00 01 1e ab 38 5b df ab |........|....8[..|
|00000060| 38 5b df 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |8[......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 32 3c 00 00 |........|....2<..|
|00000080| 21 20 56 65 72 73 69 6f | 6e 20 33 2e 30 2e 34 0d |! Versio|n 3.0.4.|
|00000090| 21 0d 21 24 20 55 73 65 | 20 74 68 69 73 20 73 63 |!.!$ Use| this sc|
|000000a0| 72 69 70 74 20 77 69 74 | 68 20 43 6c 61 73 73 20 |ript wit|h Class |
|000000b0| 32 20 4d 61 78 46 61 78 | 20 76 6f 69 63 65 20 73 |2 MaxFax| voice s|
|000000c0| 6f 66 74 77 61 72 65 20 | 76 65 72 73 69 6f 6e 20 |oftware |version |
|000000d0| 33 2e 35 20 61 6e 64 20 | 68 69 67 68 65 72 2c 0d |3.5 and |higher,.|
|000000e0| 21 24 20 41 52 41 20 31 | 2e 30 20 6f 72 20 32 2e |!$ ARA 1|.0 or 2.|
|000000f0| 30 2c 0d 21 24 20 61 6e | 64 20 61 20 42 42 53 2c |0,.!$ an|d a BBS,|
|00000100| 20 45 2d 6d 61 69 6c 20 | 6f 72 20 6f 74 68 65 72 | E-mail |or other|
|00000110| 20 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 20 73 | communi|cation s|
|00000120| 65 72 76 65 72 20 73 6f | 66 74 77 61 72 65 0d 21 |erver so|ftware.!|
|00000130| 0d 21 24 20 41 20 63 61 | 62 6c 65 20 66 6f 72 20 |.!$ A ca|ble for |
|00000140| 68 61 72 64 77 61 72 65 | 20 68 61 6e 64 73 68 61 |hardware| handsha|
|00000150| 6b 69 6e 67 20 69 73 20 | 72 65 71 75 69 72 65 64 |king is |required|
|00000160| 0d 20 0d 5e 23 20 4d 6f | 64 65 6d 3a 0d 5e 32 20 |. .^# Mo|dem:.^2 |
|00000170| 48 61 6e 64 73 68 61 6b | 65 20 77 69 72 65 73 3a |Handshak|e wires:|
|00000180| 20 3d 20 42 6f 6f 6c 28 | 22 43 54 53 2b 44 54 52 | = Bool(|"CTS+DTR|
|00000190| 22 3d 22 26 44 30 22 2c | 22 43 54 53 20 6f 6e 6c |"="&D0",|"CTS onl|
|000001a0| 79 22 3d 22 26 44 32 22 | 29 20 22 26 44 32 22 0d |y"="&D2"|) "&D2".|
|000001b0| 5e 33 20 43 61 6c 6c 20 | 50 72 6f 67 72 65 73 73 |^3 Call |Progress|
|000001c0| 20 66 6f 72 20 46 61 78 | 3a 20 3d 20 42 6f 6f 6c | for Fax|: = Bool|
|000001d0| 28 22 45 6e 61 62 6c 65 | 64 22 3d 22 22 2c 22 44 |("Enable|d"="","D|
|000001e0| 69 73 61 62 6c 65 64 22 | 3d 22 58 31 22 29 20 22 |isabled"|="X1") "|
|000001f0| 58 31 22 0d 21 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |X1".! --|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000220| 0d 21 20 52 65 73 65 74 | 74 69 6e 67 20 74 68 65 |.! Reset|ting the|
|00000230| 20 6d 6f 64 65 6d 3a 0d | 21 20 2d 2d 2d 2d 2d 2d | modem:.|! ------|
|00000240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 2d 0d 40 48 61 | 6e 67 75 70 0d 20 20 53 |----.@Ha|ngup.  S|
|00000270| 65 74 54 72 69 65 73 20 | 32 0d 20 20 46 6c 75 73 |etTries |2.  Flus|
|00000280| 68 0d 20 20 48 73 52 65 | 73 65 74 20 30 2c 30 2c |h.  HsRe|set 0,0,|
|00000290| 30 2c 30 2c 30 2c 30 0d | 21 0d 21 20 54 72 79 20 |0,0,0,0.|!.! Try |
|000002a0| 74 6f 20 63 61 74 63 68 | 20 74 68 65 20 22 4f 4b |to catch| the "OK|
|000002b0| 22 20 61 6e 73 77 65 72 | 2c 20 75 73 65 20 74 68 |" answer|, use th|
|000002c0| 65 20 45 73 63 61 70 65 | 20 73 65 71 20 61 6e 64 |e Escape| seq and|
|000002d0| 20 44 54 52 20 74 72 61 | 6e 73 69 74 69 6f 6e 73 | DTR tra|nsitions|
|000002e0| 0d 21 20 74 6f 20 65 6e | 74 65 72 20 74 68 65 20 |.! to en|ter the |
|000002f0| 63 6f 6d 6d 61 6e 64 20 | 6d 6f 64 65 0d 21 0d 40 |command |mode.!.@|
|00000300| 4c 61 62 65 6c 20 31 0d | 20 20 6d 61 74 63 68 63 |Label 1.|  matchc|
|00000310| 6c 72 0d 20 20 6d 61 74 | 63 68 73 74 72 20 31 20 |lr.  mat|chstr 1 |
|00000320| 32 20 22 4f 4b 5c 72 5c | 6e 22 0d 20 20 77 72 69 |2 "OK\r\|n".  wri|
|00000330| 74 65 20 22 41 54 48 30 | 56 31 51 30 5c 72 22 0d |te "ATH0|V1Q0\r".|
|00000340| 20 20 6d 61 74 63 68 72 | 65 61 64 20 32 30 0d 20 |  matchr|ead 20. |
|00000350| 20 43 68 72 44 65 6c 61 | 79 20 31 0d 20 20 57 72 | ChrDela|y 1.  Wr|
|00000360| 69 74 65 20 22 2b 2b 2b | 22 0d 20 20 43 68 72 44 |ite "+++|".  ChrD|
|00000370| 65 6c 61 79 20 30 0d 20 | 20 44 74 72 43 6c 65 61 |elay 0. | DtrClea|
|00000380| 72 0d 20 20 53 42 72 65 | 61 6b 0d 20 20 44 74 72 |r.  SBre|ak.  Dtr|
|00000390| 53 65 74 0d 21 0d 20 20 | 44 65 63 54 72 69 65 73 |Set.!.  |DecTries|
|000003a0| 0d 20 20 49 66 54 72 69 | 65 73 20 30 20 31 0d 21 |.  IfTri|es 0 1.!|
|000003b0| 0d 21 20 4f 53 45 72 72 | 20 2d 36 30 31 39 20 22 |.! OSErr| -6019 "|
|000003c0| 4d 6f 64 65 6d 20 65 72 | 72 6f 72 20 2d 20 74 68 |Modem er|ror - th|
|000003d0| 65 20 6d 6f 64 65 6d 20 | 69 73 20 6e 6f 74 20 72 |e modem |is not r|
|000003e0| 65 73 70 6f 6e 64 69 6e | 67 22 0d 21 0d 20 20 65 |espondin|g".!.  e|
|000003f0| 78 69 74 20 2d 36 30 31 | 39 0d 40 4c 61 62 65 6c |xit -601|9.@Label|
|00000400| 20 32 0d 20 20 53 65 74 | 56 61 72 20 41 20 22 26 | 2.  Set|Var A "&|
|00000410| 46 22 0d 20 20 47 65 74 | 4f 70 74 69 6f 6e 20 41 |F".  Get|Option A|
|00000420| 20 22 44 46 4c 54 22 20 | 33 0d 40 4c 61 62 65 6c | "DFLT" |3.@Label|
|00000430| 20 33 0d 20 20 77 72 69 | 74 65 20 22 41 54 5e 41 | 3.  wri|te "AT^A|
|00000440| 2b 46 43 4c 41 53 53 3d | 30 5c 72 22 0d 20 20 4a |+FCLASS=|0\r".  J|
|00000450| 73 72 20 31 30 30 0d 20 | 20 65 78 69 74 20 30 0d |sr 100. | exit 0.|
|00000460| 0d 40 4c 61 62 65 6c 20 | 36 0d 20 20 53 61 79 20 |.@Label |6.  Say |
|00000470| 22 54 68 69 73 20 73 63 | 72 69 70 74 20 63 61 6e |"This sc|ript can|
|00000480| 6e 6f 74 20 62 65 20 75 | 73 65 64 20 77 69 74 68 |not be u|sed with|
|00000490| 20 74 68 69 73 20 6d 6f | 64 65 6d 22 0d 20 20 69 | this mo|dem".  i|
|000004a0| 66 4f 72 69 67 69 6e 61 | 74 65 20 37 0d 20 20 70 |fOrigina|te 7.  p|
|000004b0| 61 75 73 65 20 31 38 30 | 30 0d 40 4c 61 62 65 6c |ause 180|0.@Label|
|000004c0| 20 37 0d 20 20 65 78 69 | 74 20 2d 36 30 31 39 0d | 7.  exi|t -6019.|
|000004d0| 21 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |! ------|--------|
|000004e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 21 20 20 |--------|----.!  |
|00000500| 20 20 52 65 63 65 69 76 | 69 6e 67 20 69 6e 63 6f |  Receiv|ing inco|
|00000510| 6d 69 6e 67 20 63 61 6c | 6c 73 0d 21 20 2d 2d 2d |ming cal|ls.! ---|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000540| 2d 2d 2d 2d 2d 2d 2d 0d | 40 41 4e 53 57 45 52 0d |-------.|@ANSWER.|
|00000550| 21 0d 21 20 53 65 74 20 | 74 68 65 20 6d 6f 64 65 |!.! Set |the mode|
|00000560| 6d 20 70 72 65 66 65 72 | 72 65 64 20 73 70 65 65 |m prefer|red spee|
|00000570| 64 20 66 69 72 73 74 0d | 20 20 53 65 72 52 65 73 |d first.|  SerRes|
|00000580| 65 74 20 31 39 32 30 30 | 2c 30 2c 38 2c 31 0d 20 |et 19200|,0,8,1. |
|00000590| 20 4a 73 72 20 38 30 0d | 21 0d 21 20 53 65 74 20 | Jsr 80.|!.! Set |
|000005a0| 74 68 65 20 63 6f 6d 6d | 6f 6e 20 6f 70 74 69 6f |the comm|on optio|
|000005b0| 6e 73 0d 20 20 4a 73 72 | 20 37 30 0d 0d 40 4c 61 |ns.  Jsr| 70..@La|
|000005c0| 62 65 6c 20 31 30 0d 20 | 20 4d 61 74 63 68 43 6c |bel 10. | MatchCl|
|000005d0| 72 0d 20 20 4d 61 74 63 | 68 73 74 72 20 31 20 31 |r.  Matc|hstr 1 1|
|000005e0| 31 20 22 52 49 4e 47 5c | 72 5c 6e 22 0d 20 20 4d |1 "RING\|r\n".  M|
|000005f0| 61 74 63 68 52 65 61 64 | 20 31 38 30 30 0d 20 20 |atchRead| 1800.  |
|00000600| 4a 75 6d 70 20 31 30 0d | 0d 40 4c 61 62 65 6c 20 |Jump 10.|.@Label |
|00000610| 31 31 0d 20 20 51 75 65 | 75 65 49 6e 70 75 74 20 |11.  Que|ueInput |
|00000620| 22 5c 72 5c 6e 52 49 4e | 47 5c 72 5c 6e 22 0d 20 |"\r\nRIN|G\r\n". |
|00000630| 20 4e 6f 74 65 20 22 41 | 74 74 61 63 68 69 6e 67 | Note "A|ttaching|
|00000640| c9 22 20 33 0d 20 20 41 | 74 74 61 63 68 20 22 4d |." 3.  A|ttach "M|
|00000650| 61 78 46 61 78 22 20 28 | 4d 61 73 74 65 72 2c 44 |axFax" (|Master,D|
|00000660| 54 52 29 0d 20 20 53 65 | 74 56 61 72 20 44 20 22 |TR).  Se|tVar D "|
|00000670| 5e 24 22 0d 20 20 4e 6f | 74 65 20 22 53 77 69 74 |^$".  No|te "Swit|
|00000680| 63 68 69 6e 67 c9 22 20 | 33 0d 21 0d 21 20 53 65 |ching." |3.!.! Se|
|00000690| 74 20 74 68 65 20 63 6f | 6d 6d 75 6e 69 63 61 74 |t the co|mmunicat|
|000006a0| 69 6f 6e 20 6f 70 74 69 | 6f 6e 73 3a 0d 21 20 a5 |ion opti|ons:.! .|
|000006b0| 20 4e 6f 72 6d 61 6c 20 | 28 66 6f 72 20 41 52 41 | Normal |(for ARA|
|000006c0| 29 20 2f 41 55 54 4f 20 | 43 6f 6e 6e 65 63 74 69 |) /AUTO |Connecti|
|000006d0| 6f 6e 0d 21 20 a5 20 48 | 57 20 66 6c 6f 77 20 63 |on.! . H|W flow c|
|000006e0| 6f 6e 74 72 6f 6c 0d 21 | 20 a5 20 43 4f 4e 4e 45 |ontrol.!| . CONNE|
|000006f0| 43 54 20 3c 44 43 45 20 | 73 70 65 65 64 3e 20 6f |CT <DCE |speed> o|
|00000700| 72 20 43 41 52 52 49 45 | 52 2f 43 4f 4e 4e 45 43 |r CARRIE|R/CONNEC|
|00000710| 54 0d 21 0d 20 20 47 65 | 74 4f 70 74 69 6f 6e 20 |T.!.  Ge|tOption |
|00000720| 41 20 22 48 57 48 53 22 | 20 36 0d 20 20 47 65 74 |A "HWHS"| 6.  Get|
|00000730| 4f 70 74 69 6f 6e 20 42 | 20 22 4e 4f 52 4d 22 20 |Option B| "NORM" |
|00000740| 36 0d 20 20 69 66 53 74 | 72 20 44 20 31 32 20 22 |6.  ifSt|r D 12 "|
|00000750| 41 52 41 22 0d 20 20 47 | 65 74 4f 70 74 69 6f 6e |ARA".  G|etOption|
|00000760| 20 42 20 22 41 55 54 4f | 22 20 36 0d 40 4c 61 62 | B "AUTO|" 6.@Lab|
|00000770| 65 6c 20 31 32 0d 20 20 | 47 65 74 4f 70 74 69 6f |el 12.  |GetOptio|
|00000780| 6e 20 43 20 22 4c 4e 52 | 53 22 20 36 0d 20 20 57 |n C "LNR|S" 6.  W|
|00000790| 72 69 74 65 20 22 41 54 | 5e 41 5e 42 5e 43 2b 46 |rite "AT|^A^B^C+F|
|000007a0| 43 4c 41 53 53 3d 30 5c | 72 22 0d 20 20 4a 73 72 |CLASS=0\|r".  Jsr|
|000007b0| 20 31 30 30 0d 20 20 57 | 72 69 74 65 20 22 41 54 | 100.  W|rite "AT|
|000007c0| 2b 46 41 41 3d 30 5c 72 | 22 0d 20 20 4a 73 72 20 |+FAA=0\r|".  Jsr |
|000007d0| 31 30 30 0d 0d 20 20 57 | 72 69 74 65 20 22 41 54 |100..  W|rite "AT|
|000007e0| 41 5c 72 22 0d 20 20 4a | 73 72 20 39 30 0d 20 20 |A\r".  J|sr 90.  |
|000007f0| 49 66 53 74 72 20 43 20 | 31 33 20 22 44 41 54 41 |IfStr C |13 "DATA|
|00000800| 22 0d 20 20 65 78 69 74 | 20 2d 36 30 31 39 0d 40 |".  exit| -6019.@|
|00000810| 4c 61 62 65 6c 20 31 33 | 0d 20 20 69 66 53 74 72 |Label 13|.  ifStr|
|00000820| 20 44 20 33 30 20 22 41 | 52 41 22 0d 20 20 69 66 | D 30 "A|RA".  if|
|00000830| 53 74 72 20 44 20 33 30 | 20 22 41 52 41 32 22 0d |Str D 30| "ARA2".|
|00000840| 21 0d 21 20 52 65 67 75 | 6c 61 72 20 64 61 74 61 |!.! Regu|lar data|
|00000850| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 0d 21 0d 20 20 | connect|ion.!.  |
|00000860| 48 73 52 65 73 65 74 20 | 30 2c 31 2c 30 2c 30 2c |HsReset |0,1,0,0,|
|00000870| 30 2c 31 0d 20 20 69 66 | 53 74 72 20 44 20 34 30 |0,1.  if|Str D 40|
|00000880| 20 22 44 61 74 61 22 0d | 20 20 69 66 53 74 72 20 | "Data".|  ifStr |
|00000890| 44 20 34 31 20 22 44 61 | 74 61 31 22 0d 0d 20 20 |D 41 "Da|ta1"..  |
|000008a0| 53 61 79 20 22 54 68 65 | 20 73 65 72 76 69 63 65 |Say "The| service|
|000008b0| 20 27 5e 41 27 20 69 73 | 20 6e 6f 74 20 73 75 70 | '^A' is| not sup|
|000008c0| 70 6f 72 74 65 64 20 69 | 6e 20 74 68 65 20 4c 69 |ported i|n the Li|
|000008d0| 6e 65 53 68 61 72 65 20 | 73 63 72 69 70 74 22 0d |neShare |script".|
|000008e0| 20 20 65 78 69 74 20 2d | 36 30 31 39 0d 0d 21 0d |  exit -|6019..!.|
|000008f0| 21 20 41 52 41 20 63 6f | 6e 6e 65 63 74 69 6f 6e |! ARA co|nnection|
|00000900| 20 65 73 74 61 62 6c 69 | 73 68 65 64 0d 21 0d 40 | establi|shed.!.@|
|00000910| 4c 61 62 65 6c 20 33 30 | 0d 20 20 51 75 65 75 65 |Label 30|.  Queue|
|00000920| 49 6e 70 75 74 20 22 5c | 72 5c 6e 43 41 52 52 49 |Input "\|r\nCARRI|
|00000930| 45 52 20 5e 42 5c 72 5c | 6e 22 20 20 0d 20 20 49 |ER ^B\r\|n"  .  I|
|00000940| 66 53 74 72 20 41 20 33 | 31 20 22 4e 4f 4e 45 22 |fStr A 3|1 "NONE"|
|00000950| 0d 20 20 49 66 53 74 72 | 20 41 20 33 31 20 22 4e |.  IfStr| A 31 "N|
|00000960| 6f 6e 65 22 0d 20 20 51 | 75 65 75 65 49 6e 70 75 |one".  Q|ueueInpu|
|00000970| 74 20 22 5c 72 5c 6e 52 | 45 4c 5c 72 5c 6e 22 0d |t "\r\nR|EL\r\n".|
|00000980| 40 4c 61 62 65 6c 20 33 | 31 0d 20 20 49 66 4f 72 |@Label 3|1.  IfOr|
|00000990| 69 67 69 6e 61 74 65 20 | 33 32 0d 20 20 51 75 65 |iginate |32.  Que|
|000009a0| 75 65 49 6e 70 75 74 20 | 22 5c 72 5c 6e 52 49 4e |ueInput |"\r\nRIN|
|000009b0| 47 5c 72 5c 6e 22 0d 40 | 4c 61 62 65 6c 20 33 32 |G\r\n".@|Label 32|
|000009c0| 0d 20 20 41 74 74 61 63 | 68 20 22 41 52 41 22 20 |.  Attac|h "ARA" |
|000009d0| 28 44 54 52 29 0d 0d 0d | 21 20 2d 2d 2d 2d 2d 2d |(DTR)...|! ------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a00| 2d 2d 2d 2d 0d 21 20 4f | 72 69 67 69 6e 61 74 69 |----.! O|riginati|
|00000a10| 6e 67 20 61 20 63 61 6c | 6c 20 74 68 72 6f 75 67 |ng a cal|l throug|
|00000a20| 68 20 74 68 65 20 22 4d | 61 78 46 61 78 22 20 73 |h the "M|axFax" s|
|00000a30| 75 62 70 6f 72 74 0d 21 | 20 2d 2d 2d 2d 2d 2d 2d |ubport.!| -------|
|00000a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a60| 2d 2d 2d 0d 40 4f 52 49 | 47 49 4e 41 54 45 20 22 |---.@ORI|GINATE "|
|00000a70| 4d 61 78 46 61 78 22 20 | 28 22 5c 72 5c 6e 42 75 |MaxFax" |("\r\nBu|
|00000a80| 73 79 5c 72 5c 6e 22 29 | 0d 20 20 4e 6f 74 65 20 |sy\r\n")|.  Note |
|00000a90| 22 4d 61 78 46 61 78 20 | 69 73 20 6f 72 69 67 69 |"MaxFax |is origi|
|00000aa0| 6e 61 74 69 6e 67 20 61 | 20 63 61 6c 6c 20 2e 2e |nating a| call ..|
|00000ab0| 2e 22 0d 20 20 53 65 72 | 52 65 73 65 74 20 2a 0d |.".  Ser|Reset *.|
|00000ac0| 20 20 4a 73 72 20 38 30 | 0d 20 20 4a 73 72 20 36 |  Jsr 80|.  Jsr 6|
|00000ad0| 30 0d 20 20 48 73 52 65 | 73 65 74 20 2a 0d 20 20 |0.  HsRe|set *.  |
|00000ae0| 57 72 69 74 65 20 22 41 | 54 5e 33 44 5e 31 5c 72 |Write "A|T^3D^1\r|
|00000af0| 22 0d 20 20 4d 61 74 63 | 68 43 6c 72 0d 20 20 4d |".  Matc|hClr.  M|
|00000b00| 61 74 63 68 53 74 72 20 | 31 20 33 35 20 22 2b 46 |atchStr |1 35 "+F|
|00000b10| 43 4f 4e 22 0d 20 20 4d | 61 74 63 68 73 74 72 20 |CON".  M|atchstr |
|00000b20| 31 30 20 38 32 20 22 42 | 55 53 59 5c 72 5c 6e 22 |10 82 "B|USY\r\n"|
|00000b30| 0d 20 20 4d 61 74 63 68 | 53 74 72 20 31 31 20 38 |.  Match|Str 11 8|
|00000b40| 33 20 22 4e 4f 20 43 41 | 52 52 49 45 52 5c 72 5c |3 "NO CA|RRIER\r\|
|00000b50| 6e 22 0d 20 20 4d 61 74 | 63 68 53 74 72 20 31 32 |n".  Mat|chStr 12|
|00000b60| 20 38 34 20 22 4e 4f 20 | 41 4e 53 57 45 52 5c 72 | 84 "NO |ANSWER\r|
|00000b70| 5c 6e 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 31 |\n".  Ma|tchStr 1|
|00000b80| 33 20 38 31 20 22 4e 4f | 20 44 49 41 4c 54 4f 4e |3 81 "NO| DIALTON|
|00000b90| 45 5c 72 5c 6e 22 0d 20 | 20 4d 61 74 63 68 52 65 |E\r\n". | MatchRe|
|00000ba0| 61 64 20 31 32 30 30 0d | 20 20 45 78 69 74 20 2d |ad 1200.|  Exit -|
|00000bb0| 36 30 31 39 0d 40 4c 61 | 62 65 6c 20 33 35 0d 20 |6019.@La|bel 35. |
|00000bc0| 20 51 75 65 75 65 49 6e | 70 75 74 20 22 5c 72 5c | QueueIn|put "\r\|
|00000bd0| 6e 2b 46 43 4f 4e 22 0d | 20 20 41 74 74 61 63 68 |n+FCON".|  Attach|
|00000be0| 20 22 4d 61 78 46 61 78 | 22 20 28 44 54 52 29 0d | "MaxFax|" (DTR).|
|00000bf0| 0d 21 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.! -----|--------|
|00000c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 21 20 |--------|-----.! |
|00000c20| 4f 72 69 67 69 6e 61 74 | 69 6e 67 20 61 20 63 61 |Originat|ing a ca|
|00000c30| 6c 6c 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 22 |ll throu|gh the "|
|00000c40| 41 52 41 22 20 73 75 62 | 70 6f 72 74 0d 21 20 2d |ARA" sub|port.! -|
|00000c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 40 4f 52 49 47 49 |--------|-.@ORIGI|
|00000c80| 4e 41 54 45 20 22 41 52 | 41 22 0d 20 20 53 65 72 |NATE "AR|A".  Ser|
|00000c90| 52 65 73 65 74 20 31 39 | 32 30 30 2c 30 2c 38 2c |Reset 19|200,0,8,|
|00000ca0| 31 0d 20 20 4a 73 72 20 | 38 30 0d 21 0d 21 20 53 |1.  Jsr |80.!.! S|
|00000cb0| 65 74 20 74 68 65 20 63 | 6f 6d 6d 6f 6e 20 6f 70 |et the c|ommon op|
|00000cc0| 74 69 6f 6e 73 0d 20 20 | 4a 73 72 20 37 30 0d 21 |tions.  |Jsr 70.!|
|00000cd0| 0d 21 20 53 65 74 20 74 | 68 65 20 63 6f 6d 6d 75 |.! Set t|he commu|
|00000ce0| 6e 69 63 61 74 69 6f 6e | 20 6f 70 74 69 6f 6e 73 |nication| options|
|00000cf0| 3a 0d 21 20 a5 20 4e 6f | 72 6d 61 6c 20 43 6f 6e |:.! . No|rmal Con|
|00000d00| 6e 65 63 74 69 6f 6e 0d | 21 20 a5 20 48 57 20 66 |nection.|! . HW f|
|00000d10| 6c 6f 77 20 63 6f 6e 74 | 72 6f 6c 0d 21 20 a5 20 |low cont|rol.! . |
|00000d20| 43 4f 4e 4e 45 43 54 20 | 3c 44 43 45 20 73 70 65 |CONNECT |<DCE spe|
|00000d30| 65 64 3e 20 6f 72 20 43 | 41 52 52 49 45 52 2f 43 |ed> or C|ARRIER/C|
|00000d40| 4f 4e 4e 45 43 54 0d 21 | 0d 20 20 47 65 74 4f 70 |ONNECT.!|.  GetOp|
|00000d50| 74 69 6f 6e 20 41 20 22 | 48 57 48 53 22 20 36 0d |tion A "|HWHS" 6.|
|00000d60| 20 20 47 65 74 4f 70 74 | 69 6f 6e 20 42 20 22 4e |  GetOpt|ion B "N|
|00000d70| 4f 52 4d 22 20 36 0d 20 | 20 47 65 74 4f 70 74 69 |ORM" 6. | GetOpti|
|00000d80| 6f 6e 20 43 20 22 4c 4e | 52 53 22 20 36 0d 20 20 |on C "LN|RS" 6.  |
|00000d90| 57 72 69 74 65 20 22 41 | 54 5e 41 5e 42 5e 43 5c |Write "A|T^A^B^C\|
|00000da0| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 21 0d 21 |r".  Jsr| 100.!.!|
|00000db0| 20 64 69 61 6c 20 74 68 | 65 20 6e 75 6d 62 65 72 | dial th|e number|
|00000dc0| 0d 20 20 57 72 69 74 65 | 20 22 41 54 44 5e 31 5c |.  Write| "ATD^1\|
|00000dd0| 72 22 0d 21 0d 21 20 57 | 61 69 74 20 66 6f 72 20 |r".!.! W|ait for |
|00000de0| 61 20 6d 6f 64 65 6d 20 | 72 65 73 70 6f 6e 73 65 |a modem |response|
|00000df0| 0d 20 20 4a 73 72 20 39 | 30 0d 20 20 49 66 53 74 |.  Jsr 9|0.  IfSt|
|00000e00| 72 20 43 20 33 30 20 22 | 44 41 54 41 22 0d 20 20 |r C 30 "|DATA".  |
|00000e10| 57 72 69 74 65 20 22 5c | 72 22 0d 20 20 45 78 69 |Write "\|r".  Exi|
|00000e20| 74 20 2d 36 30 31 39 0d | 0d 21 20 2d 2d 2d 2d 2d |t -6019.|.! -----|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e50| 2d 2d 2d 2d 2d 0d 21 20 | 4f 72 69 67 69 6e 61 74 |-----.! |Originat|
|00000e60| 69 6e 67 20 61 20 63 61 | 6c 6c 20 74 68 72 6f 75 |ing a ca|ll throu|
|00000e70| 67 68 20 74 68 65 20 22 | 44 41 54 41 22 20 73 75 |gh the "|DATA" su|
|00000e80| 62 70 6f 72 74 73 0d 21 | 20 2d 2d 2d 2d 2d 2d 2d |bports.!| -------|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000eb0| 2d 2d 2d 0d 40 4f 52 49 | 47 49 4e 41 54 45 20 22 |---.@ORI|GINATE "|
|00000ec0| 44 61 74 61 22 0d 20 20 | 4a 73 72 20 34 35 0d 40 |Data".  |Jsr 45.@|
|00000ed0| 4c 61 62 65 6c 20 34 30 | 0d 20 20 47 65 74 53 52 |Label 40|.  GetSR|
|00000ee0| 65 67 20 43 20 22 44 61 | 74 61 22 20 34 0d 20 20 |eg C "Da|ta" 4.  |
|00000ef0| 4a 73 72 20 34 38 0d 20 | 20 41 74 74 61 63 68 20 |Jsr 48. | Attach |
|00000f00| 22 44 61 74 61 22 20 28 | 44 54 52 2c 45 73 63 61 |"Data" (|DTR,Esca|
|00000f10| 70 65 2c 42 72 65 61 6b | 29 0d 0d 40 4f 52 49 47 |pe,Break|)..@ORIG|
|00000f20| 49 4e 41 54 45 20 22 44 | 61 74 61 31 22 0d 20 20 |INATE "D|ata1".  |
|00000f30| 4a 73 72 20 34 35 0d 40 | 4c 61 62 65 6c 20 34 31 |Jsr 45.@|Label 41|
|00000f40| 0d 20 20 47 65 74 53 52 | 65 67 20 43 20 22 44 61 |.  GetSR|eg C "Da|
|00000f50| 74 61 31 22 20 34 0d 20 | 20 4a 73 72 20 34 38 0d |ta1" 4. | Jsr 48.|
|00000f60| 20 20 41 74 74 61 63 68 | 20 22 44 61 74 61 31 22 |  Attach| "Data1"|
|00000f70| 20 28 44 54 52 2c 45 73 | 63 61 70 65 2c 42 72 65 | (DTR,Es|cape,Bre|
|00000f80| 61 6b 29 0d 0d 0d 40 4c | 61 62 65 6c 20 34 35 0d |ak)...@L|abel 45.|
|00000f90| 20 20 4a 73 72 20 37 30 | 0d 20 20 53 65 72 52 65 |  Jsr 70|.  SerRe|
|00000fa0| 73 65 74 20 2a 0d 20 20 | 47 65 74 4f 70 74 69 6f |set *.  |GetOptio|
|00000fb0| 6e 20 41 20 22 48 57 48 | 53 22 20 36 0d 20 20 47 |n A "HWH|S" 6.  G|
|00000fc0| 65 74 4f 70 74 69 6f 6e | 20 42 20 22 41 55 54 4f |etOption| B "AUTO|
|00000fd0| 22 20 36 0d 20 20 47 65 | 74 4f 70 74 69 6f 6e 20 |" 6.  Ge|tOption |
|00000fe0| 43 20 22 4c 4e 52 53 22 | 20 36 0d 20 20 57 72 69 |C "LNRS"| 6.  Wri|
|00000ff0| 74 65 20 22 41 54 5e 41 | 5e 42 5e 43 5c 72 22 0d |te "AT^A|^B^C\r".|
|00001000| 20 20 4a 73 72 20 36 30 | 0d 20 20 57 72 69 74 65 |  Jsr 60|.  Write|
|00001010| 20 22 41 54 44 5e 31 5c | 72 22 0d 20 20 48 73 52 | "ATD^1\|r".  HsR|
|00001020| 65 73 65 74 20 2a 0d 20 | 20 4a 73 72 20 39 30 0d |eset *. | Jsr 90.|
|00001030| 20 20 49 66 53 74 72 20 | 43 20 34 36 20 22 44 41 |  IfStr |C 46 "DA|
|00001040| 54 41 22 0d 20 20 57 72 | 69 74 65 20 22 5c 72 22 |TA".  Wr|ite "\r"|
|00001050| 0d 20 20 45 78 69 74 20 | 2d 36 30 31 39 0d 40 4c |.  Exit |-6019.@L|
|00001060| 61 62 65 6c 20 34 36 0d | 20 20 72 65 74 75 72 6e |abel 46.|  return|
|00001070| 0d 0d 40 4c 61 62 65 6c | 20 34 38 0d 20 20 51 75 |..@Label| 48.  Qu|
|00001080| 65 75 65 49 6e 70 75 74 | 20 22 5c 72 5e 43 43 4f |eueInput| "\r^CCO|
|00001090| 4e 4e 45 43 54 20 5e 42 | 5c 72 5e 43 22 0d 20 20 |NNECT ^B|\r^C".  |
|000010a0| 49 66 4f 72 69 67 69 6e | 61 74 65 20 34 39 0d 20 |IfOrigin|ate 49. |
|000010b0| 20 51 75 65 75 65 49 6e | 70 75 74 20 22 5c 72 5e | QueueIn|put "\r^|
|000010c0| 43 52 49 4e 47 5c 72 5e | 43 22 0d 40 4c 61 62 65 |CRING\r^|C".@Labe|
|000010d0| 6c 20 34 39 0d 20 20 72 | 65 74 75 72 6e 0d 0d 21 |l 49.  r|eturn..!|
|000010e0| 0d 21 20 54 68 69 73 20 | 73 65 63 74 69 6f 6e 20 |.! This |section |
|000010f0| 65 6d 69 74 73 20 61 6c | 6c 20 6d 6f 64 65 6d 20 |emits al|l modem |
|00001100| 63 6f 6d 6d 61 6e 64 73 | 20 73 65 6e 74 20 66 72 |commands| sent fr|
|00001110| 6f 6d 20 74 68 65 20 63 | 6c 69 65 6e 74 20 61 70 |om the c|lient ap|
|00001120| 70 6c 69 63 61 74 69 6f | 6e 0d 21 20 46 6f 72 20 |plicatio|n.! For |
|00001130| 65 61 63 68 20 73 65 74 | 20 6f 66 20 63 6f 6d 6d |each set| of comm|
|00001140| 61 6e 64 73 20 74 68 65 | 20 22 4f 4b 22 20 61 6e |ands the| "OK" an|
|00001150| 73 77 65 72 20 69 73 20 | 61 77 61 69 74 65 64 0d |swer is |awaited.|
|00001160| 21 0d 40 4c 61 62 65 6c | 20 36 30 0d 20 20 45 6d |!.@Label| 60.  Em|
|00001170| 69 74 53 74 61 72 74 0d | 40 4c 61 62 65 6c 20 36 |itStart.|@Label 6|
|00001180| 31 0d 20 20 45 6d 69 74 | 43 6f 6d 6d 61 6e 64 20 |1.  Emit|Command |
|00001190| 36 32 0d 20 20 4a 73 72 | 20 31 30 30 0d 20 20 4a |62.  Jsr| 100.  J|
|000011a0| 75 6d 70 20 36 31 0d 40 | 4c 61 62 65 6c 20 36 32 |ump 61.@|Label 62|
|000011b0| 0d 20 20 72 65 74 75 72 | 6e 0d 21 0d 21 20 54 68 |.  retur|n.!.! Th|
|000011c0| 69 73 20 73 65 63 74 69 | 6f 6e 20 69 6e 69 74 69 |is secti|on initi|
|000011d0| 61 74 65 73 20 74 68 65 | 20 6d 6f 64 65 6d 20 62 |ates the| modem b|
|000011e0| 65 66 6f 72 65 20 41 4e | 53 57 45 52 20 61 6e 64 |efore AN|SWER and|
|000011f0| 20 4f 52 49 47 49 4e 41 | 54 45 73 3a 0d 21 20 72 | ORIGINA|TEs:.! r|
|00001200| 65 73 65 74 20 6f 6e 20 | 44 74 72 20 64 72 6f 70 |eset on |Dtr drop|
|00001210| 20 2b 20 44 43 44 20 76 | 61 6c 69 64 0d 21 20 56 | + DCD v|alid.! V|
|00001220| 65 72 62 61 6c 20 72 65 | 73 70 6f 6e 73 65 73 20 |erbal re|sponses |
|00001230| 6d 6f 64 65 2c 20 6e 6f | 20 65 63 68 6f 20 0d 21 |mode, no| echo .!|
|00001240| 0d 40 4c 61 62 65 6c 20 | 37 30 0d 20 20 57 72 69 |.@Label |70.  Wri|
|00001250| 74 65 20 22 41 54 5e 32 | 26 43 31 56 31 45 30 5c |te "AT^2|&C1V1E0\|
|00001260| 72 22 0d 20 20 4a 73 72 | 20 31 30 30 0d 20 20 72 |r".  Jsr| 100.  r|
|00001270| 65 74 75 72 6e 20 0d 0d | 21 0d 21 20 54 68 69 73 |eturn ..|!.! This|
|00001280| 20 73 65 63 74 69 6f 6e | 20 73 79 6e 63 72 6f 6e | section| syncron|
|00001290| 69 7a 65 20 74 68 65 20 | 6d 6f 64 65 6d 20 61 66 |ize the |modem af|
|000012a0| 74 65 72 20 74 68 65 20 | 73 65 72 69 61 6c 20 70 |ter the |serial p|
|000012b0| 6f 72 74 20 73 70 65 65 | 64 20 73 77 69 74 63 68 |ort spee|d switch|
|000012c0| 69 6e 67 0d 21 0d 40 4c | 61 62 65 6c 20 38 30 0d |ing.!.@L|abel 80.|
|000012d0| 20 20 43 68 72 44 65 6c | 61 79 20 31 0d 20 20 57 |  ChrDel|ay 1.  W|
|000012e0| 72 69 74 65 20 22 41 54 | 5c 72 22 0d 20 20 43 68 |rite "AT|\r".  Ch|
|000012f0| 72 44 65 6c 61 79 20 30 | 0d 20 20 4a 73 72 20 31 |rDelay 0|.  Jsr 1|
|00001300| 30 30 0d 20 20 72 65 74 | 75 72 6e 0d 21 0d 21 20 |00.  ret|urn.!.! |
|00001310| 45 72 72 6f 72 20 63 6f | 64 65 73 0d 40 4c 61 62 |Error co|des.@Lab|
|00001320| 65 6c 20 38 31 0d 20 20 | 65 78 69 74 20 2d 36 30 |el 81.  |exit -60|
|00001330| 32 30 0d 40 4c 61 62 65 | 6c 20 38 32 0d 20 20 65 |20.@Labe|l 82.  e|
|00001340| 78 69 74 20 2d 36 30 32 | 32 0d 40 4c 61 62 65 6c |xit -602|2.@Label|
|00001350| 20 38 33 0d 20 20 65 78 | 69 74 20 2d 36 30 32 31 | 83.  ex|it -6021|
|00001360| 0d 40 4c 61 62 65 6c 20 | 38 34 0d 20 20 65 78 69 |.@Label |84.  exi|
|00001370| 74 20 2d 36 30 32 33 0d | 20 20 0d 21 0d 21 20 54 |t -6023.|  .!.! T|
|00001380| 68 69 73 20 73 75 62 72 | 6f 75 74 69 6e 65 20 77 |his subr|outine w|
|00001390| 61 69 74 73 20 66 6f 72 | 20 74 68 65 20 6d 6f 64 |aits for| the mod|
|000013a0| 65 6d 20 72 65 73 70 6f | 6e 73 65 0d 21 20 4f 6e |em respo|nse.! On|
|000013b0| 20 65 78 69 74 2c 20 5e | 43 20 63 6f 6e 74 61 69 | exit, ^|C contai|
|000013c0| 6e 73 20 74 68 65 20 72 | 65 73 75 6c 74 20 63 6f |ns the r|esult co|
|000013d0| 64 65 3a 20 22 46 41 58 | 22 20 6f 72 20 22 44 41 |de: "FAX|" or "DA|
|000013e0| 54 41 22 0d 21 20 5e 41 | 20 63 6f 6e 74 61 69 6e |TA".! ^A| contain|
|000013f0| 73 20 74 68 65 20 70 72 | 6f 74 6f 63 6f 6c 20 75 |s the pr|otocol u|
|00001400| 73 65 64 0d 21 20 5e 42 | 20 63 6f 6e 74 61 69 6e |sed.! ^B| contain|
|00001410| 73 20 74 68 65 20 63 61 | 72 72 69 65 72 20 73 70 |s the ca|rrier sp|
|00001420| 65 65 64 0d 21 20 49 66 | 20 6d 6f 64 65 6d 20 72 |eed.! If| modem r|
|00001430| 65 70 6f 72 74 73 20 61 | 6e 20 65 72 72 6f 72 2c |eports a|n error,|
|00001440| 20 74 68 65 20 73 63 72 | 69 70 74 73 20 65 78 69 | the scr|ipts exi|
|00001450| 74 73 20 77 69 74 68 20 | 61 6e 20 65 72 72 6f 72 |ts with |an error|
|00001460| 20 63 6f 64 65 0d 21 0d | 40 4c 61 62 65 6c 20 39 | code.!.|@Label 9|
|00001470| 30 0d 20 20 53 65 74 56 | 61 72 20 43 20 22 31 32 |0.  SetV|ar C "12|
|00001480| 30 30 22 0d 20 20 69 66 | 4f 72 69 67 69 6e 61 74 |00".  if|Originat|
|00001490| 65 20 38 39 0d 20 20 53 | 65 74 56 61 72 20 43 20 |e 89.  S|etVar C |
|000014a0| 22 36 30 30 22 0d 40 4c | 61 62 65 6c 20 38 39 0d |"600".@L|abel 89.|
|000014b0| 20 20 53 65 74 56 61 72 | 20 41 20 22 4e 4f 4e 45 |  SetVar| A "NONE|
|000014c0| 22 0d 20 20 53 65 74 56 | 61 72 20 42 20 22 22 0d |".  SetV|ar B "".|
|000014d0| 20 20 4d 61 74 63 68 43 | 6c 72 0d 20 20 4d 61 74 |  MatchC|lr.  Mat|
|000014e0| 63 68 73 74 72 20 31 20 | 39 32 20 22 43 41 52 52 |chstr 1 |92 "CARR|
|000014f0| 49 45 52 20 5e 24 5c 72 | 5c 6e 22 0d 20 20 4d 61 |IER ^$\r|\n".  Ma|
|00001500| 74 63 68 73 74 72 20 32 | 20 39 33 20 22 50 52 4f |tchstr 2| 93 "PRO|
|00001510| 54 4f 43 4f 4c 3a 20 5e | 24 5c 72 5c 6e 22 0d 20 |TOCOL: ^|$\r\n". |
|00001520| 20 4d 61 74 63 68 73 74 | 72 20 33 20 39 34 20 22 | Matchst|r 3 94 "|
|00001530| 2b 46 43 4f 4e 22 0d 0d | 20 20 4d 61 74 63 68 73 |+FCON"..|  Matchs|
|00001540| 74 72 20 34 20 39 35 20 | 22 43 4f 4e 4e 45 43 54 |tr 4 95 |"CONNECT|
|00001550| 20 5e 24 2f 22 0d 20 20 | 4d 61 74 63 68 73 74 72 | ^$/".  |Matchstr|
|00001560| 20 35 20 39 37 20 22 43 | 4f 4e 4e 45 43 54 20 5e | 5 97 "C|ONNECT ^|
|00001570| 24 5c 72 5c 6e 22 0d 20 | 20 4d 61 74 63 68 73 74 |$\r\n". | Matchst|
|00001580| 72 20 31 30 20 38 32 20 | 22 42 55 53 59 5c 72 5c |r 10 82 |"BUSY\r\|
|00001590| 6e 22 0d 20 20 4d 61 74 | 63 68 53 74 72 20 31 31 |n".  Mat|chStr 11|
|000015a0| 20 38 33 20 22 4e 4f 20 | 43 41 52 52 49 45 52 5c | 83 "NO |CARRIER\|
|000015b0| 72 5c 6e 22 0d 20 20 4d | 61 74 63 68 53 74 72 20 |r\n".  M|atchStr |
|000015c0| 31 32 20 38 34 20 22 4e | 4f 20 41 4e 53 57 45 52 |12 84 "N|O ANSWER|
|000015d0| 5c 72 5c 6e 22 0d 20 20 | 4d 61 74 63 68 53 74 72 |\r\n".  |MatchStr|
|000015e0| 20 31 33 20 38 31 20 22 | 4e 4f 20 44 49 41 4c 54 | 13 81 "|NO DIALT|
|000015f0| 4f 4e 45 5c 72 5c 6e 22 | 0d 40 4c 61 62 65 6c 20 |ONE\r\n"|.@Label |
|00001600| 39 31 0d 20 20 4d 61 74 | 63 68 72 65 61 64 20 56 |91.  Mat|chread V|
|00001610| 61 6c 28 22 5e 43 22 29 | 0d 20 20 53 65 74 56 61 |al("^C")|.  SetVa|
|00001620| 72 20 43 20 22 4e 4f 4e | 45 22 0d 20 20 72 65 74 |r C "NON|E".  ret|
|00001630| 75 72 6e 0d 0d 40 4c 61 | 62 65 6c 20 39 32 0d 20 |urn..@La|bel 92. |
|00001640| 20 53 65 74 56 61 72 20 | 42 20 22 5e 24 22 0d 20 | SetVar |B "^$". |
|00001650| 20 4a 75 6d 70 20 39 31 | 0d 40 4c 61 62 65 6c 20 | Jump 91|.@Label |
|00001660| 39 33 0d 20 20 53 65 74 | 56 61 72 20 41 20 22 5e |93.  Set|Var A "^|
|00001670| 24 22 0d 20 20 4a 75 6d | 70 20 39 31 0d 21 0d 21 |$".  Jum|p 91.!.!|
|00001680| 20 46 61 78 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 | Fax con|nection |
|00001690| 77 61 73 20 65 73 74 61 | 62 6c 69 73 68 65 64 0d |was esta|blished.|
|000016a0| 21 0d 40 4c 61 62 65 6c | 20 39 34 0d 20 20 53 65 |!.@Label| 94.  Se|
|000016b0| 74 56 61 72 20 43 20 22 | 46 41 58 22 0d 20 20 72 |tVar C "|FAX".  r|
|000016c0| 65 74 75 72 6e 0d 0d 21 | 20 43 4f 4e 4e 45 43 54 |eturn..!| CONNECT|
|000016d0| 20 78 78 78 78 2f 58 58 | 58 58 20 77 61 73 20 64 | xxxx/XX|XX was d|
|000016e0| 65 74 65 63 74 65 64 0d | 40 4c 61 62 65 6c 20 39 |etected.|@Label 9|
|000016f0| 35 0d 20 20 4a 73 72 20 | 39 38 0d 20 20 4d 61 74 |5.  Jsr |98.  Mat|
|00001700| 63 68 43 6c 72 0d 20 20 | 4d 61 74 63 68 53 74 72 |chClr.  |MatchStr|
|00001710| 20 31 20 39 36 20 22 5e | 24 5c 72 5c 6e 22 0d 20 | 1 96 "^|$\r\n". |
|00001720| 20 4d 61 74 63 68 52 65 | 61 64 20 31 30 0d 40 4c | MatchRe|ad 10.@L|
|00001730| 61 62 65 6c 20 39 36 0d | 20 20 53 65 74 56 61 72 |abel 96.|  SetVar|
|00001740| 20 41 20 22 5e 24 22 0d | 20 20 53 65 74 56 61 72 | A "^$".|  SetVar|
|00001750| 20 43 20 22 44 41 54 41 | 22 0d 20 20 72 65 74 75 | C "DATA|".  retu|
|00001760| 72 6e 0d 0d 21 20 43 4f | 4e 4e 45 43 54 20 78 78 |rn..! CO|NNECT xx|
|00001770| 78 20 77 61 73 20 64 65 | 74 65 63 74 65 64 0d 40 |x was de|tected.@|
|00001780| 4c 61 62 65 6c 20 39 37 | 0d 20 20 4a 73 72 20 39 |Label 97|.  Jsr 9|
|00001790| 38 0d 20 20 53 65 74 56 | 61 72 20 43 20 22 44 41 |8.  SetV|ar C "DA|
|000017a0| 54 41 22 0d 20 20 72 65 | 74 75 72 6e 0d 0d 40 4c |TA".  re|turn..@L|
|000017b0| 61 62 65 6c 20 39 38 0d | 20 20 69 66 53 74 72 20 |abel 98.|  ifStr |
|000017c0| 42 20 39 39 20 22 22 0d | 20 20 72 65 74 75 72 6e |B 99 "".|  return|
|000017d0| 0d 40 4c 61 62 65 6c 20 | 39 39 0d 20 20 53 65 74 |.@Label |99.  Set|
|000017e0| 56 61 72 20 42 20 22 5e | 24 22 0d 20 20 72 65 74 |Var B "^|$".  ret|
|000017f0| 75 72 6e 20 0d 21 0d 21 | 20 50 72 6f 63 65 73 73 |urn .!.!| Process|
|00001800| 69 6e 67 20 74 68 65 20 | 41 54 20 63 6f 6d 6d 61 |ing the |AT comma|
|00001810| 6e 64 3a 0d 21 20 4f 4b | 20 2d 3e 20 70 72 6f 63 |nd:.! OK| -> proc|
|00001820| 65 65 64 0d 21 20 45 52 | 52 4f 52 20 6f 72 20 54 |eed.! ER|ROR or T|
|00001830| 69 6d 65 4f 75 74 20 2d | 3e 65 78 69 74 20 2d 36 |imeOut -|>exit -6|
|00001840| 30 31 39 0d 21 20 49 74 | 20 63 61 6e 20 62 65 20 |019.! It| can be |
|00001850| 63 61 6c 6c 65 64 20 41 | 46 54 45 52 20 74 68 65 |called A|FTER the|
|00001860| 20 22 57 72 69 74 65 22 | 20 63 6f 6d 6d 61 6e 64 | "Write"| command|
|00001870| 2c 20 73 69 6e 63 65 20 | 4c 69 6e 65 53 68 61 72 |, since |LineShar|
|00001880| 65 20 62 75 66 66 65 72 | 73 20 69 6e 70 75 74 0d |e buffer|s input.|
|00001890| 21 0d 40 4c 61 62 65 6c | 20 31 30 30 0d 20 20 4d |!.@Label| 100.  M|
|000018a0| 61 74 63 68 43 6c 72 0d | 20 20 4d 61 74 63 68 53 |atchClr.|  MatchS|
|000018b0| 74 72 20 31 20 31 30 32 | 20 22 4f 4b 5c 72 5c 6e |tr 1 102| "OK\r\n|
|000018c0| 22 0d 20 20 4d 61 74 63 | 68 53 74 72 20 32 20 31 |".  Matc|hStr 2 1|
|000018d0| 30 31 20 22 45 52 52 4f | 52 5c 72 5c 6e 22 0d 20 |01 "ERRO|R\r\n". |
|000018e0| 20 4d 61 74 63 68 52 65 | 61 64 20 32 30 0d 40 4c | MatchRe|ad 20.@L|
|000018f0| 61 62 65 6c 20 31 30 31 | 0d 20 20 45 78 69 74 20 |abel 101|.  Exit |
|00001900| 2d 36 30 31 39 0d 40 4c | 61 62 65 6c 20 31 30 32 |-6019.@L|abel 102|
|00001910| 0d 20 20 72 65 74 75 72 | 6e 0d 00 00 00 00 00 00 |.  retur|n.......|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00001990| ff c0 5c 02 01 08 2e 2e | 54 12 28 6e 00 08 55 7a |..\.....|T.(n..Uz|
|000019a0| 5f 76 5f 12 2d 40 ff fc | 76 5b 57 2f 50 12 02 02 |_v_.-@..|v[W/P...|
|000019b0| 0f 4d 61 78 46 61 78 26 | 41 52 41 26 44 61 74 61 |.MaxFax&|ARA&Data|
|000019c0| 02 00 00 00 50 61 72 74 | 53 49 54 21 00 00 00 00 |....Part|SIT!....|
|000019d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 ab 53 d2 d4 00 00 | 00 00 00 00 01 1e 5f 58 |...S....|......_X|
|00001a00| 13 31 7c 0b ea 00 0c 59 | 5f 02 a0 49 60 40 da 5b |.1|....Y|_..I`@.[|
|00001a10| 12 67 22 4a ae 5b 14 67 | 1a 70 03 2f 00 20 6e 5b |.g"J.[.g|.p./. n[|
|00001a20| 14 2f 08 20 50 20 50 22 | 68 16 00 14 4e 91 70 00 |./. P P"|h...N.p.|
|00001a30| 50 8f 60 02 70 00 da 5f | a5 59 5f 01 a0 49 50 12 |P.`.p.._|.Y_..IP.|
|00001a40| 02 1a 4a 80 b0 55 01 60 | 0e 57 2f 50 11 02 0a b7 |..J..U.`|.W/P....|
|00001a50| 5b 67 73 02 10 80 ff b8 | 2e 4b 55 2e 4b 2e 11 ff |[gs.....|.KU.K...|
|00001a60| c4 5c 01 03 18 24 55 31 | 76 5b 7f 12 3c 28 00 28 |.\...$U1|v[..<(.(|
|00001a70| 57 3e 50 32 67 01 67 7e | 14 20 54 26 68 00 08 48 |W>P2g.g~|. T&h..H|
|00001a80| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00001a90| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00001aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+